<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../cfgcaminhos.asp"-->
<%
	'Cria o Objeto de Upload	
	'id = Session.Contents("ProgressID")
	'id = Request.QueryString("ProgressID")
	
	caminho = "e:\home\cubatao\Web\arquivos\testeUpl\"
	
	Set upl = Server.CreateObject("SoftArtisans.Fileup")
	
	cd_galeria = upl.Form("cd_galeria")
	nmArquivo = upl.Form("Filedata").UserFileName
	nmArquivo = cd_galeria & "-" & geraNomeArquivoCompleto( nmArquivo )
	
	upl.Form("Filedata").SaveAs caminho & nmArquivo
	
	'Response.Write( "\arquivos\" & nmArquivo )
	Response.Write( "ok" )
%>